﻿Imports System.Data.OleDb
Public Class VerReportAnimales
    Public conexion As New OleDb.OleDbConnection("Provider=Microsoft.ACE.Oledb.12.0; Data Source=nuevozoo.accdb")
    Public midataset As New DataSet
    Sub informe_animales()
        Dim animales As String = "select * from animales"
        Dim tabla As New OleDbDataAdapter(animales, conexion)

        tabla.Fill(midataset, "animales")
        Dim reportar As New ReportAnimales
        reportar.SetDataSource(midataset)

        CrystalReportViewer1.ReportSource = reportar
    End Sub
  
    Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load
        informe_animales()
    End Sub
End Class